home *** CD-ROM | disk | FTP | other *** search
/ Wildcat Gold - The Optical BBS / Wildcat Gold - The Optical BBS (The Golden ROM Series)(Volume 4 Number 1)(The Digital Publishing Company)(1992).ISO / sdn / dc_25c.sdn / DEMO3.MAC < prev    next >
Text File  |  1990-10-04  |  20KB  |  692 lines
  1. ; DEMO3.MAC, Macro demo for DANCAD3D v2.5x release version
  2.  
  3. ; Copyright (c) 1990, Daniel H. Hudgins, All rights reserved.
  4. ; Other macro files come with the registered user outfit.
  5. ; Write to: DANCAD3D, 466 Diamond St., San Francisco, CA 94114, USA.
  6.                
  7. ; Begin set up
  8.  
  9. INIT               ; clear DANCAD3D's workspace
  10. WORLD 240          ; set world scale to inches
  11.  
  12. ; End Set up
  13.  
  14. TEXT_MODE
  15. ECHO ┌─────────────────────────────────────────────────────────────────────────────┐
  16. ECHO │         DEMO3.MAC DEMONSTRATION MACRO FOR DANCAD3D v2.5x OR LATER.          │
  17. ECHO └─────────────────────────────────────────────────────────────────────────────┘
  18.  
  19. LOCATE 1 5
  20. ECHO     This DEMO macro shows you some of the types of shapes  that  can  be  drawn
  21. ECHO with  DANCAD3D.  Almost  any  type  of mechanical drawing that can be done with
  22. ECHO DANCAD3D.  Additionally DANCAD3D can be used to draw tool paths for DANCAM  and
  23. ECHO DANPLOT   to  manufacture  or  automate.   DANCAD3D's  workspace  is  virtually
  24. ECHO boundless and points can be positioned in the workspace to tremendous  accuracy
  25. ECHO (much  better  than  one  millionth  of  an  inch.)  You can make very accurate
  26. ECHO drawings with DANCAD3D.  You can freely mix 2D and  3D  drawing  components  in
  27. ECHO DANCAD3D  drawings.  To  draw with DANCAD3D you just move the drawing cursor to
  28. ECHO any point in the workspace, press the [Right] mouse button,  move the cursor to
  29. ECHO the  end point for the line segment you want to draw and press the [Left] mouse
  30. ECHO button!
  31.  
  32. LOCATE 1 17
  33. ECHO     This demo has several parts.  You should read the  messages  that  come  on
  34. ECHO then  screen  and  press  the  [Return]  key  when you are finished reading the
  35. ECHO messages.
  36.  
  37. INITIALIZE_WORKSPACE
  38. BEGIN_CUBE { Element 1 }
  39. APPEND_LINE -0.5 -0.5 -0.5 0.5 -0.5 -0.5 1 1 0 0
  40. APPEND_LINE 0.5 -0.5 -0.5 0.5 0.5 -0.5 1 1 0 0
  41. APPEND_LINE 0.5 0.5 -0.5 -0.5 0.5 -0.5 1 1 0 0
  42. APPEND_LINE -0.5 0.5 -0.5 -0.5 -0.5 -0.5 1 1 0 0
  43. APPEND_LINE -0.5 -0.5 0.5 0.5 -0.5 0.5 1 1 0 0
  44. APPEND_LINE 0.5 -0.5 0.5 0.5 0.5 0.5 1 1 0 0
  45. APPEND_LINE 0.5 0.5 0.5 -0.5 0.5 0.5 1 1 0 0
  46. APPEND_LINE -0.5 0.5 0.5 -0.5 -0.5 0.5 1 1 0 0
  47. APPEND_LINE -0.5 -0.5 -0.5 -0.5 -0.5 0.5 1 1 0 0
  48. APPEND_LINE -0.5 0.5 -0.5 -0.5 0.5 0.5 1 1 0 0
  49. APPEND_LINE 0.5 -0.5 -0.5 0.5 -0.5 0.5 1 1 0 0
  50. APPEND_LINE 0.5 0.5 -0.5 0.5 0.5 0.5 1 1 0 0
  51. { End CUBE }
  52. # 1 CENTER_FOR_CUBE 0.5 0.5 0.5
  53.  
  54. LOCATE 5 25
  55. ECHO Press [Return] to continue. %%
  56. WAIT
  57.  
  58. GRAPH_MODE B&W
  59. LOCATE 1 1
  60. ECHO     DANCAD3D  can  display the line segments in the workspace several different
  61. ECHO ways on the screen.  Flat on like here.
  62.  
  63. # 0 DISPLAY 0 0 0 -1.000E+18 480 1 0 0
  64. LOCATE 5 25
  65. ECHO Press [Return] to continue. %%
  66. WAIT
  67.  
  68.  
  69. GRAPH_MODE B&W
  70. LOCATE 1 1
  71. ECHO     With Rotation to show all the sides.
  72.  
  73. # 0 DISPLAY -20 -20 0 -1.000E+18 480 1 0 0
  74. LOCATE 5 25
  75. ECHO Press [Return] to continue. %%
  76. WAIT
  77.  
  78.  
  79.  
  80. GRAPH_MODE B&W
  81. LOCATE 1 1
  82.  
  83. ECHO     Or with exaggerated perspective to show depth better.  You can even ANIMATE
  84. ECHO the display with the Main Menu [P]review command to get an even better feel for
  85. ECHO the  shape of the objects in the workspace.  When you press [Return] the screen
  86. ECHO will redraw ten times then animate continuously.  To  continue  the  DEMO3  you
  87. ECHO will need to press [Return] then [Q] (for Quit) to quit the ANIMATE command.
  88.  
  89. # 0 DISPLAY -20 -20 0 -2 480 1 0 0
  90. LOCATE 5 25 ECHO Press [Return] to continue. %%
  91. WAIT
  92.  
  93. GRAPH_MODE B&W
  94. LOCATE 1 1 ECHO PIXEL FRAME: 1
  95. # 0 DISPLAY -20 -20 0 -2 480 1 0 0
  96. SAVE PIXEL PIX\DEMO3.1
  97.  
  98. GRAPH_MODE B&W
  99. LOCATE 1 1 ECHO PIXEL FRAME: 2
  100. # 0 DISPLAY -20 -11 0 -2 480 1 0 0
  101. SAVE PIXEL PIX\DEMO3.2
  102.  
  103. GRAPH_MODE B&W
  104. LOCATE 1 1 ECHO PIXEL FRAME: 3
  105. # 0 DISPLAY -20 -2 0 -2 480 1 0 0
  106. SAVE PIXEL PIX\DEMO3.3
  107.  
  108. GRAPH_MODE B&W
  109. LOCATE 1 1 ECHO PIXEL FRAME: 4
  110. # 0 DISPLAY -20 7 0 -2 480 1 0 0
  111. SAVE PIXEL PIX\DEMO3.4
  112.  
  113. GRAPH_MODE B&W
  114. LOCATE 1 1 ECHO PIXEL FRAME: 5
  115. # 0 DISPLAY -20 16 0 -2 480 1 0 0
  116. SAVE PIXEL PIX\DEMO3.5
  117.  
  118. GRAPH_MODE B&W
  119. LOCATE 1 1 ECHO PIXEL FRAME: 6
  120. # 0 DISPLAY -20 25 0 -2 480 1 0 0
  121. SAVE PIXEL PIX\DEMO3.6
  122.  
  123. GRAPH_MODE B&W
  124. LOCATE 1 1 ECHO PIXEL FRAME: 7
  125. # 0 DISPLAY -20 34 0 -2 480 1 0 0
  126. SAVE PIXEL PIX\DEMO3.7
  127.  
  128. GRAPH_MODE B&W
  129. LOCATE 1 1 ECHO PIXEL FRAME: 8
  130. # 0 DISPLAY -20 43 0 -2 480 1 0 0
  131. SAVE PIXEL PIX\DEMO3.8
  132.  
  133. GRAPH_MODE B&W
  134. LOCATE 1 1 ECHO PIXEL FRAME: 9
  135. # 0 DISPLAY -20 52 0 -2 480 1 0 0
  136. SAVE PIXEL PIX\DEMO3.9
  137.  
  138. GRAPH_MODE B&W
  139. LOCATE 1 1 ECHO PIXEL FRAME: 10
  140. # 0 DISPLAY -20 61 0 -2 480 1 0 0
  141. SAVE PIXEL PIX\DEMO3.10
  142.  
  143. GRAPH_MODE B&W
  144. ANIMATE PIX\DEMO3 40
  145.  
  146.  
  147. INITIALIZE ; polygon curve part
  148.  
  149. GRAPH_MODE B&W
  150. LOCATE 1 1
  151.  
  152. ECHO     Since all drawing elements in DANCAD3D are  made  from  line  segments  the
  153. ECHO polygon  command  is  used  to  approximate  circles  and similar round shapes.
  154. ECHO Having DANCAD3D only manipulate the end points of line segments allows DANCAD3D
  155. ECHO to deal with complex three dimensional forms and makes the program flexible and
  156. ECHO adaptable to any line drawing purpose.
  157.  
  158. POLYGON 6 6 2 1 1 0 0
  159. # 0 DISPLAY 0 0 0 1E18 240 1 0 0.6
  160. LOCATE 5 25
  161. ECHO Press [Return] to continue. %%
  162. WAIT
  163.  
  164.  
  165. GRAPH_MODE B&W
  166. LOCATE 1 1
  167.  
  168. ECHO     By using a lager number of sides polygons  can  look  like  circles.  As  a
  169. ECHO practical mater this is standard practice in computer graphics,  and works well
  170. ECHO if you use more sides for larger circles.  DANCAD3D  lets  you  decide  on  the
  171. ECHO resolution you want the circles to have.
  172.  
  173. POLYGON 72 72 2 1 1 0 0 { This is element 2 }
  174. # 0 DISPLAY 0 0 0 1E18 240 1 0 0.5
  175. LOCATE 5 25
  176. ECHO Press [Return] to continue. %%
  177. WAIT
  178.  
  179. GRAPH_MODE B&W
  180. LOCATE 1 1
  181.  
  182. ECHO     The MAGNIFY command can be used to squash or stretch "circles".
  183.  
  184. # 2 MAGNIFY C 1 0.5 1
  185. # 2 DISPLAY 0 0 0 1E18 240 1 0 0
  186. LOCATE 5 25
  187. ECHO Press [Return] to continue. %%
  188. WAIT
  189.  
  190.  
  191. GRAPH_MODE B&W
  192. LOCATE 1 1
  193.  
  194. ECHO     The  ROTATE  command can be used to rotate a squashed or stretched "circle"
  195. ECHO to any angle you may need.
  196.  
  197. # 2 CENTER_ON_POINT 0 0 0
  198. # 2 ROTATE C 0 0 45
  199.  
  200. # 2 DISPLAY 0 0 0 1E18 240 1 0 0
  201. LOCATE 5 25
  202. ECHO Press [Return] to continue. %%
  203. WAIT
  204.  
  205.  
  206. GRAPH_MODE B&W
  207. LOCATE 1 1
  208.  
  209. ECHO     The WINDOW command can chop part of any element off so you can use part  of
  210. ECHO an element is some special way.
  211.  
  212. # 2 WINDOW_ELEMENT 5000 0 -2 0 2 2.5 0
  213. # 3 DISPLAY 0 0 0 1E18 240 1 0 0
  214. LOCATE 5 25
  215. ECHO Press [Return] to continue. %%
  216. WAIT
  217.  
  218.  
  219. GRAPH_MODE B&W
  220. LOCATE 1 1
  221.  
  222. ECHO     The  COPY  and  FLIP  element commands are used here to mirror the windowed
  223. ECHO part of the magnified and rotated element.
  224.  
  225. # 3 COPY_ELEMENT_IN_WORKSPACE
  226. # 4 FLIP C X
  227. JOIN_TWO_ELEMENTS 3 4
  228. # 3 DISPLAY 0 0 0 1E18 240 1 0 0
  229. LOCATE 5 25
  230. ECHO Press [Return] to continue. %%
  231. WAIT
  232.  
  233. GRAPH_MODE B&W
  234. LOCATE 1 1
  235.  
  236. ECHO     The two halves of the heart can be made into one element and then  windowed
  237. ECHO again to make a new shape.
  238.  
  239. # 3 WINDOW_ELEMENT 5000 -2.2 0 0 1.9 -1.9 0
  240. # 4 DISPLAY 0 0 0 1E18 240 1 0 0
  241. LOCATE 5 25
  242. ECHO Press [Return] to continue. %%
  243. WAIT
  244.  
  245. GRAPH_MODE B&W
  246. LOCATE 1 1
  247.  
  248. ECHO     And you can COPY and FLIP (this time the Y axis in place of the X axis) the
  249. ECHO windowed element to make still another shape.
  250.  
  251. # 4 COPY_ELEMENT_IN_WORKSPACE
  252. # 5 OFFSET CURRENT 0 0 0
  253. # 5 FLIP C Y
  254. JOIN_TWO_ELEMENTS 4 5
  255. # 4 DISPLAY 0 0 0 1E18 240 1 0 0
  256. LOCATE 5 25
  257. ECHO Press [Return] to continue. %%
  258. WAIT
  259.  
  260. GRAPH B&W
  261. LOCATE 1 1
  262.  
  263. ECHO     You can COPY, ROTATE, and JOIN the new shape to make a compound form.
  264.  
  265. # 4 ROTATE C 0 0 45
  266. # 4 COPY_ELEMENT_IN_WORKSPACE
  267. # 5 OFFSET CURRENT 0 0 0
  268. # 5 ROTATE C 0 0 45
  269. JOIN_TWO_ELEMENTS 4 5
  270. # 4 DISPLAY 0 0 0 1E18 240 1 0 0
  271. LOCATE 5 25
  272. ECHO Press [Return] to continue. %%
  273. WAIT
  274.  
  275.  
  276. GRAPH B&W LOCATE 1 1
  277.  
  278. ECHO     You can continue to copy,  rotate and join elements to approximate any form
  279. ECHO of line segments you can imagine.
  280.  
  281. # 4 COPY_ELEMENT_IN_WORKSPACE
  282. # 5 OFFSET CURRENT 0 0 0
  283. # 5 ROTATE C 0 0 22.5
  284. JOIN_TWO_ELEMENTS 4 5
  285. # 4 DISPLAY 0 0 0 1E18 240 1 0 0
  286. LOCATE 5 25
  287. ECHO Press [Return] to continue. %%
  288. WAIT
  289.  
  290. ; Fit curve part
  291.  
  292.  
  293. INITIALIZE
  294.  
  295. GRAPH_MODE B&W
  296. LOCATE 1 1
  297.  
  298. ECHO     DANCAD3D's  FIT_CURVE  command can make a smooth curve from a roughly drawn
  299. ECHO curve.  Here you see the roughly drawn curve.
  300.  
  301. BEGIN
  302. APPEND -2.1 0 0 -1.4 -1.2 0 1 1 0 0
  303. APPEND -1.4 -1.2 0 -0.1 -1.2 0 1 1 0 0
  304. APPEND -0.1 -1.2 0 0.5 0 0 1 1 0 0
  305. APPEND 0.5 0 0 0.5 1.2 0 1 1 0 0
  306. APPEND 0.5 1.2 0 1.5 1.5 0 1 1 0 0
  307. APPEND 1.5 1.5 0 1.8 0.4 0 1 1 0 0
  308. APPEND 1.8 0.4 0 1.2 -0.8 0 1 1 0 0
  309. APPEND 1.2 -0.8 0 -0.2 -0.8 0 1 1 0 0
  310. APPEND -0.2 -0.8 0 -0.7 0.2 0 1 1 0 0
  311. APPEND -0.7 0.2 0 0.9 0.5 0 1 1 0 0
  312. APPEND 0.9 0.5 0 1.9 -0.4 0 1 1 0 0
  313. APPEND 1.9 -0.4 0 1.9 -1.5 0 1 1 0 0
  314. # 0 DISPLAY 0 0 0 1E18 240 1 0 0
  315. LOCATE 5 25
  316. ECHO Press [Return] to continue. %%
  317. WAIT
  318.  
  319. GRAPH_MODE B&W
  320. LOCATE 1 1
  321.  
  322. ECHO     Next you see that the new element of the  smooth  curve  makes  the  smooth
  323. ECHO curve pass through all of the end points of the roughly drawn curve.
  324.  
  325. # 1 CURVE_FIT 4 0.2
  326. # 0 DISPLAY 0 0 0 1E18 240 1 0 0
  327. LOCATE 5 25
  328. ECHO Press [Return] to continue. %%
  329. WAIT
  330.  
  331. GRAPH_MODE
  332. B&W LOCATE 1 1
  333.  
  334. ECHO     If the smooth curve element looks correct you can erase the  roughly  drawn
  335. ECHO curve element from the workspace, so that the smooth curve is un-obscured.
  336.  
  337.  
  338. # 1 ERASE_ELEMENT
  339. # 0 DISPLAY 0 0 0 1E18 240 1 0 0
  340. LOCATE 5 25
  341. ECHO Press [Return] to continue. %%
  342. WAIT
  343.  
  344.  
  345. INITIALIZE_WORKSPACE
  346. GRAPH_MODE B&W
  347. LOCATE 1 1
  348. ECHO     Aside  from drawing curves, the FIT_CURVE command has practical uses in the
  349. ECHO production of ribs for ship hulls and air or space craft parts.
  350. BEGIN
  351. APPEND 1.8 -1.3 0 1.5 -0.2 0 1 1 0 0
  352. APPEND 1.5 -0.2 0 0.8 0.7 0 1 1 0 0
  353. APPEND 0.8 0.7 0 0 0.9 0 1 1 0 0
  354. APPEND 0 0.9 0 -0.8 0.7 0 1 1 0 0
  355. APPEND -0.8 0.7 0 -1.5 -0.2 0 1 1 0 0
  356. APPEND -1.5 -0.2 0 -1.8 -1.3 0 1 1 0 0
  357. # 0 DISPLAY 0 0 0 1E18 240 1 0 0
  358. LOCATE 5 25
  359. ECHO Press [Return] to continue. %%
  360. WAIT
  361.  
  362. GRAPH_MODE B&W
  363. LOCATE 1 1
  364. ECHO     Because DANCAD3D's method of fitting curves assures  that  the  curve  will
  365. ECHO pass through  the points of the rough curve you can easily draw the rough curve
  366. ECHO from the drawing editor by using the [G]oto point command.
  367. # 1 CURVE_FIT 5 0.2
  368. # 0 DISPLAY 0 0 0 1E18 240 1 0 0.25
  369. LOCATE 5 25
  370. ECHO Press [Return] to continue. %%
  371. WAIT
  372.  
  373. GRAPH_MODE B&W
  374. LOCATE 1 1
  375. ECHO     After the quality of the curve is accepted you  can  use  DANPLOT  to  make
  376. ECHO actual size drawings for the curves,  or use DANPLOT and DANCAM to actually cut
  377. ECHO out and machine  the  part!  Advanced  commands  are  available  in  the  macro
  378. ECHO language  to  interpolate  extra  ribs  BETWEEN  the major ones.  The fit curve
  379. ECHO command will work in 3D to allow for the design of surface contours.
  380. # 1 ERASE
  381. # 0 DISPLAY 0 0 0 1E18 240 1 0 0.5
  382. LOCATE 5 25
  383. ECHO Press [Return] to continue. %%
  384. WAIT
  385.  
  386. ; Thicken part
  387.  
  388. GRAPH_MODE B&W
  389. LOCATE 1 1
  390.  
  391. ECHO     The THICKEN command  can  thicken  an  outline  of  a  shape  to  give  the
  392. ECHO appearance  of  thickness  to  elements viewed in perspective.  Here you see an
  393. ECHO outline flat on, like in the drawing editor front view.
  394.  
  395. INITIALIZE
  396. POLYGON 36 36 0.75 1 1 0 0
  397. # 1 OFFSET ZERO 0 -1 0
  398. POLYGON 60 30 1 1 1 0 0
  399. # 2 ROTATE ZERO 0 0 -90
  400. # 2 OFFSET ZERO 0 -1 0
  401. # 2 CENTER 0 -1 0
  402. # 2 ROTATE CURRENT 0 0 -90
  403. APPEND -1 -1 0 -1 1 0 1 1 0 0
  404. APPEND -1 1 0 1 1 0 1 1 0 0
  405. APPEND 1 1 0 1 -1 0 1 1 0 0
  406. POLYGON 12 12 0.125 1 1 0 0
  407. # 3 OFFSET ZERO 0.7 0.7 0
  408. # 3 COPY
  409. # 4 OFFSET CURRENT -1.4 0 0
  410. JOIN 3 4
  411. JOIN 2 3
  412. JOIN 1 2
  413. # 0 DISPLAY 0 0 0 1E18 240 1 0 0.5
  414. LOCATE 5 25
  415. ECHO Press [Return] to continue. %%
  416. WAIT
  417.  
  418. GRAPH B&W
  419. LOCATE 1 1
  420.  
  421. ECHO     Here is the same outline shown in perspective.
  422.  
  423. # 0 DISPLAY 30 -20 45 -2.5 350 1 0 -0.3
  424. LOCATE 5 25
  425. ECHO Press [Return] to continue. %%
  426. WAIT
  427.  
  428.  
  429. GRAPH B&W
  430. LOCATE 1 1
  431.  
  432. ECHO     And now the outline has been thickened.  This is a perspective view to show
  433. ECHO how the polygons have been made into holes and rounded  surfaces.  The  thicken
  434. ECHO command  takes a moment to work but is not used frequently,  so the time is not
  435. ECHO important.
  436.  
  437. # 1 THICKEN Z -0.375
  438. # 0 DISPLAY 30 -20 45 -2.5 350 1 0 -0.3
  439. LOCATE 5 25
  440. ECHO Press [Return] to continue. %%
  441. WAIT
  442.  
  443. ; Lathe part
  444.  
  445. GRAPH B&W
  446. LOCATE 1 1
  447.  
  448. ECHO     The LATHE command simplifies the drawing of round shapes by using  a  right
  449. ECHO hand  profile  of  the  round  shape  you  want  to  make as a template for the
  450. ECHO "turning" of the form.  Here you see a right hand profile.
  451.  
  452. INITIALIZE
  453. POLYGON 36 9 1 1 1 0 0
  454. # 1 OFFSET ZERO 0 -1 0
  455. # 1 CENTER 0 -1 0
  456. # 1 ROTATE CURRENT 0 0 90
  457. APPEND 1 -1 0 0.9 -0.8 0 1 1 0 0
  458. APPEND 0.9 -0.8 0 0.9 1 0 1 1 0 0
  459. # 0 DISPLAY 0 0 0 1E18 240 1 0 0.5
  460. LOCATE 5 25
  461. ECHO Press [Return] to continue. %%
  462. WAIT
  463.  
  464.  
  465. GRAPH B&W
  466. LOCATE 1 1
  467.  
  468. ECHO     Here you see the result of the LATHE command  on  the  right  hand  profile
  469. ECHO element  you  say  in the last screen.  The lathe command will take a moment to
  470. ECHO work but is is not used  frequently  so  that  is  not  important.  This  shape
  471. ECHO resembles  a  rivet  before being used.  Macro commands are available to modify
  472. ECHO the profile,  before the  element  is  lathed,  to  vary  the  contours  during
  473. ECHO animation.
  474.  
  475. # 1 LATHE 12 12
  476. # 0 DISPLAY 0 0 90 -20 350 1 0.5 0.25
  477. LOCATE 5 25
  478. ECHO Press [Return] to continue. %%
  479. WAIT
  480.  
  481. GRAPH B&W
  482. LOCATE 1 1
  483.  
  484. ECHO     You can use the LATHE command to turn parts that make up part of a complete
  485. ECHO rotation around the lathe axis.  In a moment you see a one  quarter  turn  made
  486. ECHO from the same profile used in the last example.
  487.  
  488. INITIALIZE
  489. POLYGON 36 9 1 1 1 0 0
  490. # 1 OFFSET ZERO 0 -1 0
  491. # 1 CENTER 0 -1 0
  492. # 1 ROTATE CURRENT 0 0 90
  493. APPEND 1 -1 0 0.9 -0.8 0 1 1 0 0
  494. APPEND 0.9 -0.8 0 0.9 1 0 1 1 0 0
  495. # 1 LATHE 24 6
  496. # 0 DISPLAY -20 -20 90 -2.5 350 1 0.5 0.5
  497. LOCATE 5 25
  498. ECHO Press [Return] to continue. %%
  499. WAIT
  500.  
  501.  
  502. INIT GRAPH B&W LOCATE 1 1
  503.  
  504. ECHO     Here is another example of how the lathe  command  can  be  used.  To  make
  505. ECHO outlines of shapes that have openings at the center you would draw all the line
  506. ECHO segments in the element to lathe right of center.
  507.  
  508.  
  509. BEGIN
  510. APPEND 2 0 0 1 0 0 1 1 0 0
  511. APPEND 1 0 0 1 -0.4 0 1 1 0 0
  512. APPEND 1 -0.4 0 1.3 -0.4 0 1 1 0 0
  513. APPEND 1.3 -0.4 0 1.3 -0.2 0 1 1 0 0
  514. APPEND 1.3 -0.2 0 2 -0.2 0 1 1 0 0
  515. APPEND 2 -0.2 0 2 0 0 1 1 0 0
  516. # 0 DISPLAY 0 0 0 1E18 240 1 0 0.3
  517. LOCATE 5 25
  518. ECHO Press [Return] to continue. %%
  519. WAIT
  520.  
  521. GRAPH B&W LOCATE 1 1
  522.  
  523. ECHO     Circles  or  rectangles  right of center when lathed make ring type shapes.
  524. ECHO In the last screen you saw a "L" shaped rectangular source  element.  When  the
  525. ECHO lathed element made from the source element in the last screen appears you will
  526. ECHO see  that  the  result looks like a shoulder washer with the raised part of the
  527. ECHO "L" making the shoulder.  Use the Lathe command when  you  need  stepped  edges
  528. ECHO like this.
  529.  
  530. # 1 LATHE 18 18
  531. # 0 DISPLAY -35 0 0 -4 310 1 0 0
  532. LOCATE 5 25
  533. ECHO Press [Return] to continue. %%
  534. WAIT
  535.  
  536. ; Start Thicken two
  537.  
  538. INIT GRAPH B&W
  539.  
  540. ECHO     When  you  need  ring  shapes  that  do not have rounded edges or steps the
  541. ECHO Thicken command can be used to produce a different type of appearance.  For the
  542. ECHO Thicken command you would draw the full face of the part, as shown here.
  543.  
  544. POLYGON 72 72 2 1 1 0 0
  545. POLYGON 40 40 1 1 1 0 0
  546. POLYGON 12 12 0.125 1 1 0 0
  547. # 3 OFFSET ZERO 0 -1.5 0
  548. # 3 COPY
  549. # 4 OFFSET CURRENT 0 0 0
  550. # 3 COPY
  551. # 5 OFFSET CURRENT 0 0 0
  552. # 5 CENTER 0 0 0
  553. # 5 ROTATE CURRENT 0 0 120
  554. # 4 CENTER 0 0 0
  555. # 4 ROTATE CURRENT 0 0 -120
  556. APPEND 0 -2 0 0 -1.625 0 1 1 0 0
  557. APPEND 0 -1.375 0 0 -1 0 1 1 0 0
  558. APPEND 0 1 0 0 2 0 1 1 0 0
  559. APPEND -1 0 0 -2 0 0 1 1 0 0
  560. APPEND 1 0 0 2 0 0 1 1 0 0
  561. # 0 DISPLAY 0 0 0 1E18 240 1 0 0.3
  562. LOCATE 5 25
  563. ECHO Press [Return] to continue. %%
  564. WAIT
  565.  
  566. GRAPH B&W LOCATE 1 1
  567.  
  568. ECHO     Then after thickening the small circles will  become  the  mounting  holes.
  569.  
  570. # 0 THICKEN Z -0.375
  571. # 0 DISPLAY 33 0 30 -7 330 1 0 -0.3
  572. LOCATE 5 25
  573. ECHO Press [Return] to continue. %%
  574. WAIT
  575.  
  576.  
  577. INIT GRAPH B&W
  578.  
  579. ECHO     DANCAD3D lets you make special fonts for the lettering commands.  These are
  580. ECHO some of the characters that come with the user  outfit.  Special  International
  581. ECHO fonts  are supplied with the user outfit.  Also supplied are fonts for drafting
  582. ECHO that use fewer line segments than the default font on the ShareWare disks.
  583.  
  584. LOAD 2D DEMO3A.2D
  585.  
  586. # 0 DISPLAY 0 0 0 1E18 260 1   0    0
  587.  
  588. # 0 DISPLAY 0 0 0 1E18 260 1   0.01  0.01
  589. # 0 DISPLAY 0 0 0 1E18 260 1   0.01 -0.01
  590. # 0 DISPLAY 0 0 0 1E18 260 1  -0.01  0.01
  591. # 0 DISPLAY 0 0 0 1E18 260 1  -0.01 -0.01
  592.  
  593. # 0 DISPLAY 0 0 0 1E18 260 1   0.0065  0.0065
  594. # 0 DISPLAY 0 0 0 1E18 260 1   0.0065 -0.0065
  595. # 0 DISPLAY 0 0 0 1E18 260 1  -0.0065  0.0065
  596. # 0 DISPLAY 0 0 0 1E18 260 1  -0.0065 -0.0065
  597.  
  598.  
  599. # 0 DISPLAY 0 0 0 1E18 260 1   0.003  0.003
  600. # 0 DISPLAY 0 0 0 1E18 260 1   0.003 -0.003
  601. # 0 DISPLAY 0 0 0 1E18 260 1  -0.003  0.003
  602. # 0 DISPLAY 0 0 0 1E18 260 1  -0.003 -0.003
  603.  
  604.  
  605. LOCATE 5 25
  606. ECHO Press [Return] to continue. %%
  607. WAIT
  608.  
  609. INIT GRAPH B&W LOCATE 1 1
  610.  
  611. ECHO     DANCAD3D's ALIAS index files let you quickly load symbols like  these  into
  612. ECHO your drawings while drawing.  These are some examples from the symbols supplied
  613. ECHO with  the  user outfit.  Among the symbols supplied with the outfit are symbols
  614. ECHO for  Electronic  schematics,  PCB  layout,  Mathematical  symbols,  Flow  chart
  615. ECHO symbols,  and assorted symbols for Astronomy,  Map making, and Music engraving.
  616. ECHO You can create any number of special symbols for your own use.
  617.  
  618. LOAD 2D DEMO3B.2D
  619.  
  620. # 0 DISPLAY 0 0 0 1E18 1 1   0    0
  621.  
  622. # 0 DISPLAY 0 0 0 1E18 1 1   1.75  1.75
  623. # 0 DISPLAY 0 0 0 1E18 1 1   1.75 -1.75
  624. # 0 DISPLAY 0 0 0 1E18 1 1  -1.75  1.75
  625. # 0 DISPLAY 0 0 0 1E18 1 1  -1.75 -1.75
  626.  
  627. # 0 DISPLAY 0 0 0 1E18 1 1   1  1
  628. # 0 DISPLAY 0 0 0 1E18 1 1   1 -1
  629. # 0 DISPLAY 0 0 0 1E18 1 1  -1  1
  630. # 0 DISPLAY 0 0 0 1E18 1 1  -1 -1
  631.  
  632. LOCATE 5 25
  633. ECHO Press [Return] to continue. %%
  634. WAIT
  635.  
  636.  
  637. INIT GRAPH B&W WORLD 240 
  638.  
  639. ECHO     DANCAD3D offers several line types:  Solid, Dotted, Dashed, and Combination 
  640. ECHO of  dots  and dashes.  You can adjust the spacing of the dots and dashed to get 
  641. ECHO dozens of variations of each style.  
  642.  
  643. BEGIN
  644. APPEND -2.25 -1.5 0 2.25 -1.5 0 1 1 0 0
  645. APPEND 2.25 -0.5 0 -2.25 -0.5 0 1 1 0 161
  646. APPEND -2.25 0.5 0 2.25 0.5 0 1 1 0 242
  647. APPEND 2.25 1.5 0 -2.25 1.5 0 1 1 0 227
  648.  
  649. # 0 DISPLAY 0 0 0 -1.000E+18 240 1 0 0 
  650. LOCATE 5 25
  651. ECHO Press [Return] to continue. %%
  652. WAIT
  653.  
  654.  
  655. INIT GRAPH B&W WORLD 240 
  656.  
  657. ECHO     DANCAD3D also lets you vary the line width from vary narrow to  very  wide.  
  658. ECHO When  the line segments are wide you can also chose from several styles for the 
  659. ECHO end shape of the line segments, such as round or square.  
  660.  
  661. BEGIN
  662. APPEND -2.25 -1.5 0 2.25 -1.5 0 1 1 0 0 
  663. APPEND 2.25 -0.5 0 -2.25 -0.5 0 1 20 0 0
  664. APPEND -2.25 0.5 0 2.25 0.5 0 1 50 0 0 
  665. APPEND 2.25 1.5 0 -2.25 1.5 0 1 255 16 0
  666.  
  667. # 0 DISPLAY 0 0 0 -1.000E+18 240 1 0 0 
  668. LOCATE 5 25
  669. ECHO Press [Return] to continue. %%
  670. WAIT
  671.  
  672. INIT TEXT
  673.  
  674. ECHO     This demo has just scratched the  surface  of  all  the  types  of  drawing 
  675. ECHO elements  you  can  make with DANCAD3D.  Please read the file DANCAD3D.DOC that 
  676. ECHO you should have on your program disks.  Additional examples and explanation  of 
  677. ECHO how to use DANCAD3D are included in the registered user outfit.  
  678. LOCATE 1 6
  679. ECHO     I  hope  you enjoy learning how to make practical use of DANCAD3D.  If your 
  680. ECHO hardware meets the requirements outlined  in  the  file  DANCAD3D.DOC  DANCAD3D 
  681. ECHO should  work  for  you.  If  you  are having any problems feel free to write to 
  682. ECHO report the problem you  are  having.  When  you  write  please  enclose  return 
  683. ECHO postage   for  the  reply  as  US  first  class  stamps  or  some  first  class 
  684. ECHO international postal vouchers.  
  685.  
  686. LOCATE 5 25
  687. ECHO Press [Return] to continue. %%
  688. WAIT
  689.  
  690.  
  691. ; END MACRO FILE DEMO3.MAC
  692.